home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Interfaces / AppleScript 1.1 Interfaces / AIncludes / TSMTE.a < prev   
Encoding:
Text File  |  1994-04-07  |  1.8 KB  |  78 lines  |  [TEXT/MPS ]
  1. ;    File:        TSMTE.a
  2. ;
  3. ;    Contains:    Definitions for TSMTE
  4. ;
  5. ;    Written by:    Kida Yasuo, Hara Keisuke
  6. ;
  7. ;    Translated from C to Assembly by:    Greg Branche
  8. ;
  9. ;    Copyright:    ©1991, 1992, 1994 Apple Operations and Technologies Japan, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;___________________________________________________________________________
  13.  
  14.  
  15.  IF &TYPE('__INCLUDINGTSMTE__') = 'UNDEFINED' THEN
  16. __INCLUDINGTSMTE__   SET 1
  17.  
  18. ; IF &TYPE('__INCLUDINGTEXTEDIT__') = 'UNDEFINED' THEN
  19. ; Include 'TextEdit.a'
  20. ; ENDIF
  21.  
  22.  IF &TYPE('__INCLUDINGTOOLUTILS__') = 'UNDEFINED' THEN
  23.  Include 'ToolUtils.a'
  24.  ENDIF
  25.  
  26. ;// Signature, interface types.
  27.  
  28. kTSMTESignature            EQU    'tmTE'
  29. kTSMTEInterfaceType        EQU    kTSMTESignature
  30. kTSMTEDialog            EQU    'tmDI'
  31.  
  32.  
  33. ;// Gestalt
  34.  
  35. gestaltTSMTEAttr        EQU    kTSMTESignature
  36. gestaltTSMTE            EQU    0
  37. gestaltTSMTEVersion        EQU    'tmTV'
  38. kTSMTEVersion            EQU    $100 
  39.  
  40.  
  41. ;// Callback procedure definitions
  42.  
  43. ;typedef pascal void ( *TSMPreUpdateProcPtr)(
  44. ;    TEHandle    textH,
  45. ;    long        refCon);
  46.  
  47. ;typedef pascal void ( *TSMPostUpdateProcPtr)(
  48. ;    TEHandle    textH,
  49. ;    long        fixLen,
  50. ;    long        inputAreaStart,
  51. ;    long        inputAreaEnd,
  52. ;    long        pinStart,
  53. ;    long        pinEnd,
  54. ;    long        refCon);
  55.  
  56.  
  57. ;// TSMTERec
  58.  
  59. kTSMTEAutoScroll    EQU 1                ;//    auto scroll on
  60.  
  61. TSMTERec        Record    0
  62. textH            ds.l    1                ;// TEHandle
  63. preUpdateProc    ds.l    1                ;// TSMPreUpdateProcPtr, if not nil, this is called before updating text
  64. postUpdateProc    ds.l    1                ;// TSMPostUpdateProcPtr, if not nil, this is called after updating text
  65. updateFlag        ds.l    1                ;// flags described above
  66. refCon            ds.l    1                ;// reference constant used by application
  67.                 EndR
  68.  
  69. ;// TSMDialogRecord
  70.  
  71. TSMDialogRecord    Record    0
  72. fDialog            ds        DialogRecord    ;// Dialog Record
  73. fDocID            ds.l    1                ;// TSMDocumentID
  74. fTsmteRecH        ds.l    1                ;// Handle to the TSMTERec
  75. fTSMTERsvd        ds.l    3                ;// •Internally used•
  76.                 EndR
  77.  
  78.  ENDIF